home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 1 / NetNews Offline Volume 1.iso / install_deutsch < prev    next >
Text File  |  1996-03-27  |  2KB  |  52 lines
  1. (if (>= (shiftright (getversion) 16) 37)
  2. ((set assignname "NetNews_Lib")
  3. (complete 0)
  4. (welcome)
  5. (set noassign (= (getassign assignname) ""))
  6. (if noassign
  7. ((set level @user-level)
  8. (set grnworkdir (tackon @default-dest assignname))
  9. (set error true)
  10. (while error
  11. ((set grnworkdir
  12. (askdir
  13. (default grnworkdir)
  14. (prompt "In welchem Verzeichnis sollen die GRn-Arbeitsdaten abgelegt werden?")
  15. (help @askdir-help)
  16. (newpath)))
  17. (if (not (patmatch "#?:#?" grnworkdir))
  18. (set grnworkdir (expandpath grnworkdir)))
  19. (set error (patmatch "#?[\"*]#?" grnworkdir))
  20. (if error
  21. (message "Der Verzeichnisname darf weder Anfⁿhrungszeichen noch Asterisken enthalten."))
  22. (if (not error)
  23. (if (not (exists grnworkdir (noreq)))
  24. ((set @error-msg "")
  25. (trap 4 (makedir grnworkdir))
  26. (if (<> @error-msg "")
  27. ((if (= level 0)
  28. (user 1))
  29. (message "Das GRn-Arbeitsverzeichnis konnte nicht angelegt werden.")
  30. (set error true))))))))
  31. (user level))
  32. (set grnworkdir (cat assignname ":")))
  33. (complete 25)
  34. (if (or @pretend (>= (getdiskspace grnworkdir) $1e00000))
  35. ((working "GRn-Arbeitsdaten werden kopiert ...")
  36. (run (cat "copy " (tackon (pathonly @icon) "lib/netnews#?.grnrc ") grnworkdir " quiet buf 512"))
  37. (working)
  38. (complete 50)
  39. (if noassign
  40. ((startup @app-name
  41. (command (cat "Assign " assignname ": \"" grnworkdir "\""))
  42. (prompt "Ein Assignment mu▀ Ihrer User-Startup-Datei hinzugefⁿgt werden.")
  43. (help "Die ─nderung dient dazu, GRn seine Arbeitsdaten auch nach einem Neustart wiederfinden zu lassen.\n\n" @startup-help))
  44. (complete 75)
  45. (if (not @pretend)
  46. (makeassign assignname grnworkdir)))))
  47. (abort "Auf dem DatentrΣger mit dem GRn-Arbeitsverzeichnis sollten 30 MB verfⁿgbar sein."))
  48. (complete 100)
  49. (set @default-dest "")
  50. (exit "Die Installation der GRn-Arbeitsdaten ist beendet."))
  51. (abort "Um die Artikel dieser CD mit GRn zu lesen, ben÷tigen Sie zumindest Amiga-OS 2.04.\nVerwenden Sie n÷tigenfalls einen anderen News-Reader Ihrer Wahl, oder aktualisieren Sie die Systemsoftware Ihres Amigas."))
  52.